﻿Public Class Lau1BUS
    Public Function GetBan() As DataTable
        Dim ban As New Lau1DAO
        Return ban.GetBan()
    End Function
    Public Sub AddBan(ByVal newBan As Lau1DTO)
        Dim ban As New Lau1DAO
        ban.AddBan(newBan)
    End Sub
    Public Sub DelBan(ByVal delban As Lau1DTO)
        Dim ban As New Lau1DAO
        ban.DelBan(delban)
    End Sub
    Public Sub UpdateBan(ByVal newban As Lau1DTO)
        Dim ban As New Lau1DAO
        ban.UpdateBan(newban)
    End Sub
End Class
